*** Replication data for

*** Vytautas Kuokštis, Simonas Algirdas Spurga, "Political underpinnings of economic success in the Eurozone: The role of wage bargaining coordination"



clear
use "euro_growth.dta"


*** Look at country averages

keep if euro == 1

gen ln_gdppc = log(GDPpercapitaconstant2015US)

gen founder_eurozone = 0 

replace founder_eurozone = 1 if Country == "Belgium" | Country == "Germany" | Country == "France" | Country == "Luxembourg" | Country == "Netherlands" | Country == "Portugal" | Country == "Spain" | Country == "Italy" | Country == "Ireland" | Country == "Austria" | Country == "Greece" | Country == "Finland"


collapse (mean) GDPpercapitagrowth Coord founder_eurozone ln_gdppc, by(CountryID)


** Figure 1

gen Country_adj = ""
replace Country_adj = "Austria" in 1
replace Country_adj = "Belgium" in 2
replace Country_adj = "Cyprus" in 3
replace Country_adj = "Estonia" in 4
replace Country_adj = "Finland" in 5
replace Country_adj = "France" in 6
replace Country_adj = "Germany" in 7
replace Country_adj = "Greece" in 8
replace Country_adj = "Ireland" in 9
replace Country_adj = "Italy" in 10
replace Country_adj = "Latvia" in 11
replace Country_adj = "Lithuania" in 12
replace Country_adj = "Luxembourg" in 13
replace Country_adj = "Netherlands" in 15
replace Country_adj = "Portugal" in 16
replace Country_adj = "Slovakia" in 17
replace Country_adj = "Slovenia" in 18
replace Country_adj = "Spain" in 19


twoway (scatter GDPpercapitagrowth Coord, mlabel(Country_adj) mlabposition(3)) (qfit GDPpercapitagrowth Coord), ytitle("Average GDP per capita growth") xlabel() xtitle("Average level of coordination") legend(off) graphregion(margin(10 10 10 15))

graph export "Figure1.png", as(png) replace




cor GDPpercapitagrowth Coord if founder_eurozone == 1

cor GDPpercapitagrowth Coord if founder_eurozone == 1 & CountryID !=94

cor GDPpercapitagrowth Coord


clear
use "euro_growth.dta"


* calculate average coordination and log gdp pc
bysort CountryID: egen mean_coord = mean(Coord)
gen ln_gdppc = log(GDPpercapitaconstant2015US)


gen lln_gdppc = log(GDPpercapitaconstant2015US)
gen lcoord = l.Coord
gen leuro = l.euro
gen founder_eurozone = 0 

replace founder_eurozone = 1 if Country == "Belgium" | Country == "Germany" | Country == "France" | Country == "Luxembourg" | Country == "Netherlands" | Country == "Portugal" | Country == "Spain" | Country == "Italy" | Country == "Ireland" | Country == "Austria" | Country == "Greece" | Country == "Finland"




*** created rounded mean variable for coordination
gen mean_coord_cat = round(mean_coord)


** population and institutional quality

gen ln_pop = log(Populationtotal)
gen lln_pop = l.ln_pop

gen INST = ( vae+ pve+ gee+ rqe+ rle+ cce)/6

gen lINST = l.INST

bysort CountryID: egen mean_INST = mean(INST)




*** descriptives


foreach var in GDPpercapitagrowth Coord mean_coord_cat ln_gdppc euro  ln_pop INST mean_INST {
    bysort Country: egen max_`var' = max(!missing(`var'))
}
collapse (max) max_*, by(Country)

save temp_country_data.dta, replace

use "euro_growth.dta", clear


bysort CountryID: egen mean_coord = mean(Coord)
gen ln_gdppc = log(GDPpercapitaconstant2015US)
gen lln_gdppc = log(GDPpercapitaconstant2015US)
gen lcoord = l.Coord
gen leuro = l.euro
gen founder_eurozone = 0 
gen mean_coord_cat = round(mean_coord)
gen ln_pop = log(Populationtotal)
gen lln_pop = l.ln_pop
gen INST = ( vae+ pve+ gee+ rqe+ rle+ cce)/6
gen lINST = l.INST
bysort CountryID: egen mean_INST = mean(INST)



foreach var in GDPpercapitagrowth Coord mean_coord_cat ln_gdppc euro  ln_pop INST mean_INST {
    su `var', detail
    local obs_`var' = r(N)
    local mean_`var' = r(mean)
    local sd_`var' = r(sd)
    local min_`var' = r(min)
    local max_`var' = r(max)
}

use temp_country_data.dta, clear
local vars GDPpercapitagrowth Coord mean_coord_cat ln_gdppc euro  ln_pop INST mean_INST
foreach var in `vars' {
    count if max_`var' == 1
    local nCountries_`var' = r(N)
}

clear
set obs 8
gen variable = ""
gen n_countries = .
gen obs = .
gen mean = .
gen sd = .
gen min = .
gen max = .

local i = 1
foreach var in `vars' {
    replace variable = "`var'" in `i'
    replace n_countries = `nCountries_`var'' in `i'
    replace obs = `obs_`var'' in `i'
    replace mean = `mean_`var'' in `i'
    replace sd = `sd_`var'' in `i'
    replace min = `min_`var'' in `i'
    replace max = `max_`var'' in `i'
    local i = `i' + 1
}

asdoc list variable n_countries obs mean sd min max, clean noobs replace save(summary_table.doc)






use "euro_growth.dta", clear


bysort CountryID: egen mean_coord = mean(Coord)
gen ln_gdppc = log(GDPpercapitaconstant2015US)
gen lln_gdppc = log(GDPpercapitaconstant2015US)
gen lcoord = l.Coord
gen leuro = l.euro
gen mean_coord_cat = round(mean_coord)
gen ln_pop = log(Populationtotal)
gen lln_pop = l.ln_pop
gen INST = ( vae+ pve+ gee+ rqe+ rle+ cce)/6
gen lINST = l.INST
bysort CountryID: egen mean_INST = mean(INST)
gen founder_eurozone = 0 
replace founder_eurozone = 1 if Country == "Belgium" | Country == "Germany" | Country == "France" | Country == "Luxembourg" | Country == "Netherlands" | Country == "Portugal" | Country == "Spain" | Country == "Italy" | Country == "Ireland" | Country == "Austria" | Country == "Greece" | Country == "Finland"





*** Appendix, for founding members (Table A3)
reg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1 & founder_eurozone

outreg2 using "model_results.doc", word replace ctitle("OLS") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1 & founder_eurozone

outreg2 using "model_results.doc", word append ctitle("RE") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc lcoord)


reg GDPpercapitagrowth i.Year lln_gdppc mean_coord if euro == 1 & founder_eurozone

outreg2 using "model_results.doc", word append ctitle("OLS") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc mean_coord)


xtreg GDPpercapitagrowth ib2000.Year lln_gdppc mean_coord if euro == 1 & founder_eurozone

outreg2 using "model_results.doc", word append ctitle("RE") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc mean_coord)

* excl Ireland
reg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1 & founder_eurozone & Country !="Ireland"

outreg2 using "model_results.doc", word append ctitle("OLS") addstat("Number of Countries", 11)  keep(GDPpercapitagrowth lln_gdppc lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1 & founder_eurozone  & Country !="Ireland"

outreg2 using "model_results.doc", word append ctitle("RE") addstat("Number of Countries", 11)  keep(GDPpercapitagrowth lln_gdppc lcoord)


reg GDPpercapitagrowth i.Year lln_gdppc mean_coord if euro == 1 & founder_eurozone  & Country !="Ireland"

outreg2 using "model_results.doc", word append ctitle("OLS") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc mean_coord)


xtreg GDPpercapitagrowth ib2000.Year lln_gdppc mean_coord if euro == 1 & founder_eurozone  & Country !="Ireland"

outreg2 using "model_results.doc", word append ctitle("RE") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc mean_coord)




*** Appendix, for all EZ members (Table A4)
reg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1

outreg2 using "model_results2.doc", word replace ctitle("OLS") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1

outreg2 using "model_results2.doc", word append ctitle("RE") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc lcoord)



reg GDPpercapitagrowth i.Year lln_gdppc mean_coord if euro == 1 

outreg2 using "model_results2.doc", word append ctitle("OLS") addstat("Number of Countries", 12)keep(GDPpercapitagrowth lln_gdppc mean_coord)


xtreg GDPpercapitagrowth i.Year lln_gdppc mean_coord if euro == 1

outreg2 using "model_results2.doc", word append ctitle("RE") addstat("Number of Countries", 12) keep(GDPpercapitagrowth lln_gdppc mean_coord)

* excluding Ireland

reg GDPpercapitagrowth i.Year lln_gdppc lcoord if euro == 1 & Country !="Ireland"

outreg2 using "model_results2.doc", word append ctitle("OLS") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc lcoord)

xtreg GDPpercapitagrowth ib2000.Year lln_gdppc lcoord  if euro == 1 & Country != "Ireland", cluster(Country)

outreg2 using "model_results2.doc", word append ctitle("RE") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc lcoord)




reg GDPpercapitagrowth i.Year lln_gdppc mean_coord if euro == 1  & Country !="Ireland"

outreg2 using "model_results2.doc", word append ctitle("OLS") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc mean_coord)


xtreg GDPpercapitagrowth ib2000.Year lln_gdppc mean_coord if euro == 1 & Country !="Ireland"

outreg2 using "model_results2.doc", word append ctitle("RE") addstat("Number of Countries", 11) keep(GDPpercapitagrowth lln_gdppc mean_coord)





*** Appendix, expanded sample (Table A5)


reg GDPpercapitagrowth i.Year lln_gdppc c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word replace ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.lcoord)


reg GDPpercapitagrowth i.Year lln_gdppc c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.mean_coord)


xtreg GDPpercapitagrowth i.Year lln_gdppc c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.mean_coord)



xtreg GDPpercapitagrowth i.Year lln_gdppc c.lcoord##i.leuro, fe cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.lcoord)


xtreg GDPpercapitagrowth i.Year lln_gdppc c.mean_coord##i.leuro, fe cluster(Country)
 
outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lcoord 1.leuro 1.leuro#c.mean_coord)




*** Appendix, testing by levels (Table A6)


reg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro, cluster(Country)

outreg2 using "model_results4.doc", word replace ctitle("OLS") addstat("Number of Countries", 31) drop (i.Year)

xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro, cluster(Country)

outreg2 using "model_results4.doc", word append ctitle("RE") addstat("Number of Countries", 31) drop (i.Year)
 


xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro, fe cluster(Country)

outreg2 using "model_results4.doc", word append ctitle("FE") addstat("Number of Countries", 31) drop (i.Year)



reg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro if Country !="Ireland", cluster(Country)

outreg2 using "model_results4.doc", word append ctitle("OLS") addstat("Number of Countries", 30) drop (i.Year)

xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro if Country !="Ireland", cluster(Country)

outreg2 using "model_results4.doc", word append ctitle("RE") addstat("Number of Countries", 30) drop (i.Year)



xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro if Country !="Ireland", fe cluster(Country)

outreg2 using "model_results4.doc", word append ctitle("FE") addstat("Number of Countries", 30) drop (i.Year)


*** showing marginal effects based on above models (Figure 2)


xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro, cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))

graph export "Figure2.png", as(png) replace


xtreg GDPpercapitagrowth i.Year lln_gdppc i.mean_coord_cat##i.leuro if Country != "Ireland", cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))






*** testing hump-shaped with LP-DiD 


* Figure A1
lpdid GDPpercapitagrowth if mean_coord < 1.6 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc)

* Figure A2
lpdid GDPpercapitagrowth if mean_coord > 1.5 & mean_coord < 3.9, time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc)

* Figure A3
lpdid GDPpercapitagrowth if mean_coord > 3.9 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc)



*** no lagged outcome, LP-DID (also to see pre-trend behavior)


lpdid GDPpercapitagrowth if mean_coord < 1.6 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) cluster(Country) controls (lln_gdppc)

lpdid GDPpercapitagrowth if mean_coord > 1.5 & mean_coord < 3.9, time(Year) unit(CountryID) treat(leuro) pre(4) post(10) cluster(Country) controls (lln_gdppc)

lpdid GDPpercapitagrowth if mean_coord > 3.9 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) cluster(Country) controls (lln_gdppc)



*** testing with xthdidregress

xthdidregress aipw (GDPpercapitagrowth lln_gdppc) (leuro) if mean_coord < 1.6, group(CountryID)

estat aggregation

estat aggregation, dynamic graph


xthdidregress aipw (GDPpercapitagrowth lln_gdppc) (leuro) if mean_coord > 1.6 & mean_coord < 3.9, group(CountryID)

estat aggregation

estat aggregation, dynamic graph



xthdidregress aipw (GDPpercapitagrowth lln_gdppc) (leuro) if mean_coord > 3.9, group(CountryID)

estat aggregation

estat aggregation, dynamic graph



*** Figure 3
clear

input coef se group
1.344035  .6712377  1
-1.377064  .3687065  1
-.0076746  .2875318      1
  .3472745   .6910755  2
-2.639821  .8363009  2
-.3983523   .5570406  2
end

gen ci_low = coef - 1.96 * se
gen ci_high = coef + 1.96 * se

* Create a new variable for x-axis positions with slight offsets
gen x = .
replace x = 1 if _n == 1 | _n == 4
replace x = 2 if _n == 2 | _n == 5
replace x = 3 if _n == 3 | _n == 6
replace x = x - 0.1 if group == 1
replace x = x + 0.1 if group == 2

twoway (rcap ci_low ci_high x if group == 1) (scatter coef x if group == 1, msymbol(O) mcolor(blue)) (rcap ci_low ci_high x if group == 2) (scatter coef x if group == 2, msymbol(D) mcolor(red)), yline(0) title("Coefficient Estimates with 95% CI") xlabel(1 "low coordination" 2 "medium coordination" 3 "high coordination", noticks) legend(order(2 "LP-DID" 4 "Callaway/Sant'Anna") position(3)) ylabel(, angle(0)) xscale(range(0.5 3.5)) xtitle("") yscale(r(-4, 3))


*** Sensitivity checks
*** Population and institutional quality


use "euro_growth.dta", clear


bysort CountryID: egen mean_coord = mean(Coord)
gen ln_gdppc = log(GDPpercapitaconstant2015US)
gen lln_gdppc = log(GDPpercapitaconstant2015US)
gen lcoord = l.Coord
gen leuro = l.euro
gen mean_coord_cat = round(mean_coord)
gen ln_pop = log(Populationtotal)
gen lln_pop = l.ln_pop
gen INST = ( vae+ pve+ gee+ rqe+ rle+ cce)/6
gen lINST = l.INST

bysort CountryID: egen mean_INST = mean(INST)
gen founder_eurozone = 0 
replace founder_eurozone = 1 if Country == "Belgium" | Country == "Germany" | Country == "France" | Country == "Luxembourg" | Country == "Netherlands" | Country == "Portugal" | Country == "Spain" | Country == "Italy" | Country == "Ireland" | Country == "Austria" | Country == "Greece" | Country == "Finland"


reg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word replace ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST  c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth  lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)


reg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)


xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST  c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)



xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST c.lcoord##i.leuro, fe cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)


xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop lINST  c.mean_coord##i.leuro, fe cluster(Country)
 
outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)




*** with mean_INST

reg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word replace ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)

xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST  c.lcoord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth  lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)


reg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("OLS") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)


xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST  c.mean_coord##i.leuro, cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("RE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)



xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST  c.lcoord##i.leuro, fe cluster(Country)

outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.lcoord)


xtreg GDPpercapitagrowth i.Year lln_gdppc lln_pop mean_INST  c.mean_coord##i.leuro, fe cluster(Country)
 
outreg2 using "model_results3.doc", word append ctitle("FE") addstat("Number of Countries", 31) keep(GDPpercapitagrowth lln_gdppc lln_pop lINST  lcoord 1.leuro 1.leuro#c.mean_coord)




*** Testing by levels


xtreg GDPpercapitagrowth i.Year lln_gdppc l.ln_pop l.ln_pop lINST i.mean_coord_cat##i.leuro, cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))


xtreg GDPpercapitagrowth i.Year lln_gdppc l.ln_pop l.ln_pop lINST i.mean_coord_cat##i.leuro if Country !="Ireland", cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))



xtreg GDPpercapitagrowth i.Year lln_gdppc l.ln_pop l.ln_pop mean_INST i.mean_coord_cat##i.leuro, cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))




xtreg GDPpercapitagrowth i.Year lln_gdppc l.ln_pop l.ln_pop mean_INST i.mean_coord_cat##i.leuro if Country !="Ireland", cluster(Country)

margins, dydx(leuro) at(mean_coord_cat = (1 2 3 4 5))
marginsplot, plotopts(connect(L) lwidth(none)) yline(0, lcolor(black) lwidth(medium))




*** Panel DiD


lpdid GDPpercapitagrowth if mean_coord < 1.6 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc l.ln_pop mean_INST)


lpdid GDPpercapitagrowth if mean_coord > 1.5 & mean_coord < 3.9, time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc l.ln_pop mean_INST)


lpdid GDPpercapitagrowth if mean_coord > 3.9 & mean_coord !=., time(Year) unit(CountryID) treat(leuro) pre(4) post(10) ylags(4) cluster(Country) controls (lln_gdppc l.ln_pop mean_INST)


*** testing with xthdidregress

xthdidregress aipw (GDPpercapitagrowth lln_gdppc ln_pop mean_INST) (leuro) if mean_coord < 1.6, group(CountryID)

xthdidregress aipw (GDPpercapitagrowth lln_gdppc ln_pop mean_INST) (leuro) if mean_coord > 1.6 & mean_coord < 3.9, group(CountryID)

xthdidregress aipw (GDPpercapitagrowth lln_gdppc ln_pop mean_INST) (leuro) if mean_coord > 3.9, group(CountryID)










